home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Comms Spectacular / Terminal 2.2 / Terminal Folder / Append.s next >
Encoding:
Text File  |  1990-12-31  |  633 b   |  30 lines  |  [TEXT/PEDT]
  1. /*
  2.     Terminal 2.0 script
  3.     "Append.s"
  4.  
  5.     Append to capture file.
  6. */
  7.  
  8. main()
  9. {
  10.     int year, month, day, hour, minute, second, weekday, err;
  11.  
  12.     /* Get Macintosh date and time */
  13.  
  14.     date(time(), &year, &month, &day, &hour, &minute, &second, &weekday);
  15.  
  16.     /* Start capturing incoming data into a file */
  17.  
  18.     err = capture(2, "Capture");    /* Append */
  19.     if (err && err != 2) {            /* Error */
  20.         beep();
  21.         return;
  22.     }
  23.     /* err == 2: capture file was already open */
  24.  
  25.     /* The following text is displayed and also captured into the file */
  26.  
  27.     display("\r*** Start of capture %02i-%02i-%04i %02i:%02i:%02i ***\r",
  28.         day, month, year, hour, minute, second);
  29. }
  30.